   1 .
   2 .
   3 .PICK A
   4 .PATTERNS
   5 .BY RON PICARDI
  10 clear 
  20 print 
  30 print "PICK A PATTERN"
  40 print 
  50 print "1.DESIGN"
  60 print "2.RANDOM PATTERN"
  70 print "3.SQUARES"
 100 if &(23)=8goto 200
 120 if &(22)=8goto 500
 130 if &(21)=8goto 700
 190 goto 100
 200 clear 
 210 input "FOR 60 TO 60 STEP ?"A
 220 input "FOR 30 TO 30 STEP ?"B
 230 input "FOR 1 TO ? BOX"C
 235 input "STEP ?"K
 240 input "REPEAT ?"D
 250 input "STEP ?"E
 260 input "COLOR ?"F
 265 F=Fmul 8-1
 266 FC=F
 270 input "B C ?"G
 275 G=Gmul 8+1
 276 BC=G
 280 input "MUSIC ? 1 OR 0"H
 290 print "1.GO 0,RESET"
 295 if &(23)=8goto 300
 296 if &(22)=16goto 10
 299 goto 295
 300 FC=F;BC=G
 305 clear 
 310 if H=1&(22)=200
 320 for H=1to Dstep E
 330 for F=-60to 60step A
 340 for G=-30to 30step B
 350 for I=1to Cstep K
 360 J=I+H-1
 365 box F,G,J,J,3
 366 &(17)=Jmul 6
 370 next I
 372 if &(22)=16goto 10
 375 &(18)=(G+35)mul 3
 380 next G
 385 &(20)=(F+65)mul 3
 390 next F
 400 next H
 405 &(22)=0
 410 if &(23)=8goto 310
 415 if &(22)=8goto 600
 420 if &(22)=16goto 10
 430 goto 410
 500 A=rnd (60)
 510 B=rnd (30)
 520 C=rnd (30)
 530 D=rnd (30)
 540 E=rnd (30)
 550 K=rnd (6)
 560 F=rnd (32)mul 8-1
 570 G=rnd (32)mul 8+1
 580 H=1
 590 goto 300
 600 print "A=",;print A
 610 print "B=",;print B
 620 print "C=",;print C
 630 print "D=",;print D
 640 print "E=",;print E
 650 print "K=",;print K
 670 print "F C",;print FC
 680 print "B C",;print BC
 690 goto 50
 700 input "FOR 1 TO ?"A
 710 input "STEP ?"B
 720 input "BOX ?"C
 730 input "STEP ?"D
 740 input "1. BOX 2. 2 BOX 3. RETANGLE"E
 745 input "MUSIC"F
 746 &(20)=F
 750 input "F C ?"F
 755 FC=Fmul 8-1
 760 input "B C ?"F
 765 BC=Fmul 8+1
 766 clear 
 767 &(22)=200
 770 if E=1goto 800
 780 if E=2goto 900
 790 if E=3goto 1000
 795 if E<1goto 10
 796 if E>3goto 10
 800 for M=1to Astep B
 810 for N=1to Cstep D
 820 box 0,0,M+N,M+N,3
 825 &(17)=N
 830 next N
 835 &(18)=M
 840 next M
 850 CX=-75;CY=40;input E
 860 goto 767
 900 for M=1to Astep B
 910 for N=1to Cstep D
 920 box -40,0,M+N,M+N,3;box 40,0,M+N,M+N,3
 930 &(17)=N
 940 next N
 950 &(18)=M
 960 next M
 970 goto 850
1000 for M=1to Astep B
1010 for N=1to Cstep D
1020 box 0,0,M,N,3
1030 &(17)=M;&(18)=N
1040 next N
1050 next M
1060 goto 850
:return ;run 